home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / misc / lissajous / !Lissajous / Lissajous < prev    next >
Unknown  |  1992-01-11  |  11.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 3e 20 | 3c 42 45 64 24 44 69 72 |..... > |<BEd$Dir|
|00000010| 3e 2e 4c 69 73 73 61 6a | 6f 75 73 0d 00 14 1c f4 |>.Lissaj|ous.....|
|00000020| 20 a9 20 4d 69 6b 65 20 | 43 75 72 6e 6f 77 20 4a | . Mike |Curnow J|
|00000030| 61 6e 20 31 39 39 32 0d | 00 1e 43 f4 20 42 61 73 |an 1992.|..C. Bas|
|00000040| 65 64 20 6f 6e 20 61 20 | 70 72 6f 67 72 61 6d 20 |ed on a |program |
|00000050| 62 79 20 4d 69 63 68 61 | 65 6c 20 53 74 20 41 75 |by Micha|el St Au|
|00000060| 62 79 6e 2c 20 a9 20 41 | 63 6f 72 6e 20 55 73 65 |byn, . A|corn Use|
|00000070| 72 20 4e 6f 76 20 31 39 | 38 35 0d 00 28 1c c8 9b |r Nov 19|85..(...|
|00000080| 20 22 3c 4c 69 73 73 61 | 24 44 69 72 3e 2e 57 69 | "<Lissa|$Dir>.Wi|
|00000090| 6d 70 4c 69 62 22 0d 00 | 32 1f f2 57 69 6d 70 49 |mpLib"..|2..WimpI|
|000000a0| 6e 69 74 28 22 4c 69 73 | 73 61 6a 6f 75 73 22 2c |nit("Lis|sajous",|
|000000b0| 31 32 33 30 29 0d 00 3c | cf de 20 45 64 69 74 69 |1230)..<|.. Editi|
|000000c0| 25 20 31 38 32 3a 78 6d | 69 6e 5f 69 25 3d 45 64 |% 182:xm|in_i%=Ed|
|000000d0| 69 74 69 25 2b 32 37 3a | 78 6d 61 78 5f 69 25 3d |iti%+27:|xmax_i%=|
|000000e0| 45 64 69 74 69 25 2b 33 | 39 3a 78 66 75 6e 63 5f |Editi%+3|9:xfunc_|
|000000f0| 69 25 3d 45 64 69 74 69 | 25 2b 35 31 3a 79 6d 69 |i%=Editi|%+51:ymi|
|00000100| 6e 5f 69 25 3d 45 64 69 | 74 69 25 2b 31 30 37 3a |n_i%=Edi|ti%+107:|
|00000110| 79 6d 61 78 5f 69 25 3d | 45 64 69 74 69 25 2b 31 |ymax_i%=|Editi%+1|
|00000120| 31 39 3a 79 66 75 6e 63 | 5f 69 25 3d 45 64 69 74 |19:yfunc|_i%=Edit|
|00000130| 69 25 2b 31 33 31 3a 78 | 69 6e 63 69 5f 69 25 3d |i%+131:x|inci_i%=|
|00000140| 45 64 69 74 69 25 2b 31 | 36 32 3a 78 69 6e 63 5f |Editi%+1|62:xinc_|
|00000150| 69 25 3d 45 64 69 74 69 | 25 2b 31 36 37 3a 79 69 |i%=Editi|%+167:yi|
|00000160| 6e 63 69 5f 69 25 3d 45 | 64 69 74 69 25 2b 31 37 |nci_i%=E|diti%+17|
|00000170| 32 3a 79 69 6e 63 5f 69 | 25 3d 45 64 69 74 69 25 |2:yinc_i|%=Editi%|
|00000180| 2b 31 37 37 0d 00 46 41 | de 20 49 6e 66 6f 69 25 |+177..FA|. Infoi%|
|00000190| 20 35 33 3a 49 6e 66 6f | 74 25 3d 49 6e 66 6f 69 | 53:Info|t%=Infoi|
|000001a0| 25 3a 49 6e 66 6f 32 74 | 25 3d 49 6e 66 6f 69 25 |%:Info2t|%=Infoi%|
|000001b0| 2b 31 39 3a 49 6e 66 6f | 34 74 25 3d 49 6e 66 6f |+19:Info|4t%=Info|
|000001c0| 69 25 2b 33 37 0d 00 50 | 38 de 20 53 61 76 65 41 |i%+37..P|8. SaveA|
|000001d0| 73 69 25 20 32 36 30 3a | 66 6e 25 3d 53 61 76 65 |si% 260:|fn%=Save|
|000001e0| 41 73 69 25 2b 30 3a 53 | 61 76 65 41 73 32 76 25 |Asi%+0:S|aveAs2v%|
|000001f0| 3d 53 61 76 65 41 73 69 | 25 2b 32 35 36 0d 00 5a |=SaveAsi|%+256..Z|
|00000200| 24 f2 57 69 6d 70 4f 54 | 28 22 3c 4c 69 73 73 61 |$.WimpOT|("<Lissa|
|00000210| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 61 74 65 73 22 |$Dir>.Te|mplates"|
|00000220| 29 0d 00 64 3a 45 25 3d | a4 57 69 6d 70 4c 54 28 |)..d:E%=|.WimpLT(|
|00000230| 45 64 69 74 69 25 2c 45 | 64 69 74 69 25 2b 31 38 |Editi%,E|diti%+18|
|00000240| 32 2c 22 45 64 69 74 22 | 29 3a 45 64 69 74 25 3d |2,"Edit"|):Edit%=|
|00000250| a4 57 69 6d 70 43 57 28 | 62 25 29 0d 00 6e 0c de |.WimpCW(|b%)..n..|
|00000260| 20 65 64 25 20 33 36 0d | 00 78 31 21 65 64 25 3d | ed% 36.|.x1!ed%=|
|00000270| 45 64 69 74 25 3a e3 20 | 49 25 3d 30 20 b8 20 32 |Edit%:. |I%=0 . 2|
|00000280| 34 20 88 34 3a 21 28 65 | 64 25 2b 49 25 2b 34 29 |4 .4:!(e|d%+I%+4)|
|00000290| 3d 62 25 21 49 25 3a ed | 0d 00 82 39 45 25 3d a4 |=b%!I%:.|...9E%=.|
|000002a0| 57 69 6d 70 4c 54 28 49 | 6e 66 6f 69 25 2c 49 6e |WimpLT(I|nfoi%,In|
|000002b0| 66 6f 69 25 2b 35 33 2c | 22 49 6e 66 6f 22 29 3a |foi%+53,|"Info"):|
|000002c0| 49 6e 66 6f 25 3d a4 57 | 69 6d 70 43 57 28 62 25 |Info%=.W|impCW(b%|
|000002d0| 29 0d 00 8c 42 45 25 3d | a4 57 69 6d 70 4c 54 28 |)...BE%=|.WimpLT(|
|000002e0| 53 61 76 65 41 73 69 25 | 2c 53 61 76 65 41 73 69 |SaveAsi%|,SaveAsi|
|000002f0| 25 2b 32 36 30 2c 22 53 | 61 76 65 41 73 22 29 3a |%+260,"S|aveAs"):|
|00000300| 53 61 76 65 41 73 25 3d | a4 57 69 6d 70 43 57 28 |SaveAs%=|.WimpCW(|
|00000310| 62 25 29 0d 00 96 0e de | 20 64 77 64 77 25 20 39 |b%).....| dwdw% 9|
|00000320| 32 0d 00 a0 38 c8 99 22 | 57 69 6d 70 5f 4c 6f 61 |2...8.."|Wimp_Loa|
|00000330| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 64 77 64 77 |dTemplat|e",,dwdw|
|00000340| 25 2b 34 2c 62 25 2c 62 | 25 2b 32 35 36 2c 2d 31 |%+4,b%,b|%+256,-1|
|00000350| 2c 22 44 72 61 77 22 2c | 30 0d 00 aa 0b f2 57 69 |,"Draw",|0.....Wi|
|00000360| 6d 70 43 54 0d 00 b4 10 | ee 85 20 f2 57 69 6d 70 |mpCT....|.. .Wimp|
|00000370| 53 74 6f 70 0d 00 be 1f | 69 63 25 3d a4 49 63 6f |Stop....|ic%=.Ico|
|00000380| 6e 54 61 73 6b 28 22 21 | 4c 69 73 73 61 6a 6f 75 |nTask("!|Lissajou|
|00000390| 73 22 29 0d 00 c8 09 f2 | 69 6e 69 74 0d 00 d2 05 |s").....|init....|
|000003a0| 3a 0d 00 dc 05 f5 0d 00 | e6 1b c8 99 22 57 69 6d |:.......|...."Wim|
|000003b0| 70 5f 50 6f 6c 6c 22 2c | 31 2c 62 25 20 b8 20 43 |p_Poll",|1,b% . C|
|000003c0| 25 0d 00 f0 0b c8 8e 20 | 43 25 20 ca 0d 00 fa 21 |%...... |C% ....!|
|000003d0| 20 20 c9 20 32 3a c8 99 | 22 57 69 6d 70 5f 4f 70 | . 2:..|"Wimp_Op|
|000003e0| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 25 0d 01 04 |enWindow|",,b%...|
|000003f0| 31 20 20 c9 20 33 3a e7 | 20 21 62 25 3d 45 64 69 |1 . 3:.| !b%=Edi|
|00000400| 74 25 20 f2 63 6c 6f 73 | 65 65 64 69 74 20 8b 20 |t% .clos|eedit . |
|00000410| f2 43 6c 6f 73 65 57 69 | 6e 28 21 62 25 29 0d 01 |.CloseWi|n(!b%)..|
|00000420| 0e 0f 20 20 c9 20 35 3a | f2 64 72 61 77 0d 01 18 |.. . 5:|.draw...|
|00000430| 30 20 20 c9 20 36 3a f2 | 43 68 65 63 6b 4d 6f 75 |0 . 6:.|CheckMou|
|00000440| 73 65 28 21 62 25 2c 62 | 25 21 34 2c 62 25 21 38 |se(!b%,b|%!4,b%!8|
|00000450| 2c 62 25 21 31 32 2c 62 | 25 21 31 36 29 0d 01 22 |,b%!12,b|%!16).."|
|00000460| 0f 20 20 c9 20 37 3a f2 | 73 61 76 65 0d 01 2c 1a |. . 7:.|save..,.|
|00000470| 20 20 c9 20 38 3a f2 6b | 65 79 28 62 25 21 34 2c | . 8:.k|ey(b%!4,|
|00000480| 62 25 21 32 34 29 0d 01 | 36 12 20 20 c9 20 39 3a |b%!24)..|6. . 9:|
|00000490| f2 6d 65 6e 75 73 65 6c | 0d 01 40 16 20 20 c9 20 |.menusel|..@. . |
|000004a0| 31 37 2c 31 38 3a f2 75 | 73 65 72 6d 73 67 0d 01 |17,18:.u|sermsg..|
|000004b0| 4a 05 cb 0d 01 54 07 fd | 20 a3 0d 01 5e 05 3a 0d |J....T..| ...^.:.|
|000004c0| 01 68 22 dd f2 57 69 6d | 70 45 6e 64 3a c8 99 22 |.h"..Wim|pEnd:.."|
|000004d0| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 3a |Wimp_Clo|seDown":|
|000004e0| e0 0d 01 72 05 3a 0d 01 | 7c 0d dd f2 6d 65 6e 75 |...r.:..||...menu|
|000004f0| 73 65 6c 0d 01 86 1b f2 | 57 69 6d 70 53 65 6c 65 |sel.....|WimpSele|
|00000500| 63 74 28 62 25 2c 6d 24 | 2c 62 75 74 25 29 0d 01 |ct(b%,m$|,but%)..|
|00000510| 90 19 e7 20 6d 24 3d 22 | 45 64 69 74 22 20 f2 6f |... m$="|Edit" .o|
|00000520| 70 65 6e 65 64 69 74 0d | 01 9a 1a e7 20 6d 24 3d |penedit.|.... m$=|
|00000530| 22 44 72 61 77 22 20 f2 | 73 74 61 72 74 64 72 61 |"Draw" .|startdra|
|00000540| 77 0d 01 a4 05 e1 0d 01 | ae 05 3a 0d 01 b8 0d dd |w.......|..:.....|
|00000550| f2 75 73 65 72 6d 73 67 | 0d 01 c2 0d 6d 61 25 3d |.usermsg|....ma%=|
|00000560| 62 25 21 31 36 0d 01 cc | 0c c8 8e 20 6d 61 25 20 |b%!16...|... ma% |
|00000570| ca 0d 01 d6 12 20 20 c9 | 20 30 3a f2 57 69 6d 70 |..... .| 0:.Wimp|
|00000580| 45 6e 64 0d 01 e0 14 20 | 20 c9 20 32 3a f2 64 6f |End.... | . 2:.do|
|00000590| 73 61 76 65 28 b9 29 0d | 01 ea 0f 20 20 c9 20 33 |save(.).|... . 3|
|000005a0| 3a f2 6c 6f 61 64 0d 01 | f4 05 cb 0d 01 fe 05 e1 |:.load..|........|
|000005b0| 0d 02 08 05 3a 0d 02 12 | 34 dd f2 43 68 65 63 6b |....:...|4..Check|
|000005c0| 4d 6f 75 73 65 28 6d 6f | 75 73 65 78 25 2c 6d 6f |Mouse(mo|usex%,mo|
|000005d0| 75 73 65 79 25 2c 62 75 | 74 25 2c 68 61 6e 64 6c |usey%,bu|t%,handl|
|000005e0| 65 25 2c 69 63 6f 6e 25 | 29 0d 02 1c 10 e7 20 28 |e%,icon%|)..... (|
|000005f0| 62 75 74 25 80 32 29 20 | 8c 0d 02 26 26 20 20 e7 |but%.2) |...&& .|
|00000600| 20 68 61 6e 64 6c 65 25 | 3d 2d 32 20 f2 6d 65 6e | handle%|=-2 .men|
|00000610| 75 28 30 29 20 8b 20 f2 | 6d 65 6e 75 28 31 29 0d |u(0) . .|menu(1).|
|00000620| 02 30 07 20 20 e1 0d 02 | 3a 05 cd 0d 02 44 1a e7 |.0. ...|:....D..|
|00000630| 20 68 61 6e 64 6c 65 25 | 3d 2d 32 20 f2 6f 70 65 | handle%|=-2 .ope|
|00000640| 6e 65 64 69 74 0d 02 4e | 37 e7 20 28 62 75 74 25 |nedit..N|7. (but%|
|00000650| 80 26 35 30 29 20 80 20 | 68 61 6e 64 6c 65 25 3d |.&50) . |handle%=|
|00000660| 53 61 76 65 41 73 25 20 | 80 20 69 63 6f 6e 25 3d |SaveAs% |. icon%=|
|00000670| 30 20 f2 57 69 6d 70 53 | 53 61 76 65 0d 02 58 36 |0 .WimpS|Save..X6|
|00000680| e7 20 28 62 75 74 25 80 | 26 35 29 20 80 20 68 61 |. (but%.|&5) . ha|
|00000690| 6e 64 6c 65 25 3d 53 61 | 76 65 41 73 25 20 80 20 |ndle%=Sa|veAs% . |
|000006a0| 69 63 6f 6e 25 3d 32 20 | f2 64 6f 73 61 76 65 28 |icon%=2 |.dosave(|
|000006b0| a3 29 0d 02 62 21 e7 20 | 68 61 6e 64 6c 65 25 3d |.)..b!. |handle%=|
|000006c0| 45 64 69 74 25 20 80 20 | 28 62 75 74 25 80 26 35 |Edit% . |(but%.&5|
|000006d0| 29 20 8c 0d 02 6c 2e 20 | 20 e7 20 69 63 6f 6e 25 |) ...l. | . icon%|
|000006e0| 3d 31 30 20 79 65 71 78 | 5f 69 25 3d 79 65 71 78 |=10 yeqx|_i%=yeqx|
|000006f0| 5f 69 25 20 82 2d 31 3a | f2 73 65 74 65 64 69 74 |_i% .-1:|.setedit|
|00000700| 79 0d 02 76 17 20 20 e7 | 20 69 63 6f 6e 25 3d 32 |y..v. .| icon%=2|
|00000710| 37 20 f2 69 6e 70 75 74 | 0d 02 80 22 20 20 e7 20 |7 .input|..." . |
|00000720| 69 63 6f 6e 25 3d 32 38 | 20 f2 69 6e 70 75 74 3a |icon%=28| .input:|
|00000730| f2 73 74 61 72 74 64 72 | 61 77 0d 02 8a 1b 20 20 |.startdr|aw.... |
|00000740| e7 20 69 63 6f 6e 25 3d | 32 39 20 f2 63 6c 6f 73 |. icon%=|29 .clos|
|00000750| 65 65 64 69 74 0d 02 94 | 05 cd 0d 02 9e 05 e1 0d |eedit...|........|
|00000760| 02 a8 05 3a 0d 02 b2 12 | dd f2 6d 65 6e 75 28 68 |...:....|..menu(h|
|00000770| 61 6e 64 6c 65 29 0d 02 | bc 52 e7 20 68 61 6e 64 |andle)..|.R. hand|
|00000780| 6c 65 3d 30 20 4d 25 3d | a4 57 69 6d 70 4d 65 6e |le=0 M%=|.WimpMen|
|00000790| 75 28 30 2c 6d 65 6e 75 | 24 2b 22 2c 51 75 69 74 |u(0,menu|$+",Quit|
|000007a0| 22 2c 74 61 73 6b 6e 24 | 29 20 8b 20 4d 25 3d a4 |",taskn$|) . M%=.|
|000007b0| 57 69 6d 70 4d 65 6e 75 | 28 31 2c 6d 65 6e 75 24 |WimpMenu|(1,menu$|
|000007c0| 2c 74 61 73 6b 6e 24 29 | 0d 02 c6 05 e1 0d 02 d0 |,taskn$)|........|
|000007d0| 05 3a 0d 02 da 0e dd f2 | 6f 70 65 6e 65 64 69 74 |.:......|openedit|
|000007e0| 0d 02 e4 11 f2 65 64 69 | 74 69 63 6f 6e 64 61 74 |.....edi|ticondat|
|000007f0| 61 0d 02 ee 26 65 64 25 | 21 32 38 3d 2d 31 3a c8 |a...&ed%|!28=-1:.|
|00000800| 99 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f |."Wimp_O|penWindo|
|00000810| 77 22 2c 2c 65 64 25 0d | 02 f8 0c 65 64 69 74 6f |w",,ed%.|...edito|
|00000820| 25 3d b9 0d 03 02 05 e1 | 0d 03 0c 12 dd f2 65 64 |%=......|......ed|
|00000830| 69 74 69 63 6f 6e 64 61 | 74 61 0d 03 16 21 24 78 |iticonda|ta...!$x|
|00000840| 6d 69 6e 5f 69 25 3d 78 | 6d 69 6e 24 3a 24 78 6d |min_i%=x|min$:$xm|
|00000850| 61 78 5f 69 25 3d 78 6d | 61 78 24 0d 03 20 14 24 |ax_i%=xm|ax$.. .$|
|00000860| 78 66 75 6e 63 5f 69 25 | 3d 78 66 75 6e 63 24 0d |xfunc_i%|=xfunc$.|
|00000870| 03 2a 1b 24 78 69 6e 63 | 69 5f 69 25 3d c2 c3 28 |.*.$xinc|i_i%=..(|
|00000880| 78 69 6e 63 69 25 29 2c | 34 29 0d 03 34 19 24 78 |xinci%),|4)..4.$x|
|00000890| 69 6e 63 5f 69 25 3d c2 | c3 28 78 69 6e 63 25 29 |inc_i%=.|.(xinc%)|
|000008a0| 2c 34 29 0d 03 3e 21 24 | 79 6d 69 6e 5f 69 25 3d |,4)..>!$|ymin_i%=|
|000008b0| 79 6d 69 6e 24 3a 24 79 | 6d 61 78 5f 69 25 3d 79 |ymin$:$y|max_i%=y|
|000008c0| 6d 61 78 24 0d 03 48 14 | 24 79 66 75 6e 63 5f 69 |max$..H.|$yfunc_i|
|000008d0| 25 3d 79 66 75 6e 63 24 | 0d 03 52 1b 24 79 69 6e |%=yfunc$|..R.$yin|
|000008e0| 63 69 5f 69 25 3d c2 c3 | 28 79 69 6e 63 69 25 29 |ci_i%=..|(yinci%)|
|000008f0| 2c 34 29 0d 03 5c 19 24 | 79 69 6e 63 5f 69 25 3d |,4)..\.$|yinc_i%=|
|00000900| c2 c3 28 79 69 6e 63 25 | 29 2c 34 29 0d 03 66 11 |..(yinc%|),4)..f.|
|00000910| 79 65 71 78 5f 69 25 3d | 79 65 71 78 25 0d 03 70 |yeqx_i%=|yeqx%..p|
|00000920| 21 f2 57 69 6d 70 49 63 | 6f 6e 54 69 63 6b 28 45 |!.WimpIc|onTick(E|
|00000930| 64 69 74 25 2c 31 30 2c | 79 65 71 78 25 29 0d 03 |dit%,10,|yeqx%)..|
|00000940| 7a 0d f2 73 65 74 65 64 | 69 74 79 0d 03 84 05 e1 |z..seted|ity.....|
|00000950| 0d 03 8e 0e dd f2 73 65 | 74 65 64 69 74 79 0d 03 |......se|tedity..|
|00000960| 98 24 f2 57 69 6d 70 49 | 63 6f 6e 53 68 61 64 65 |.$.WimpI|conShade|
|00000970| 28 45 64 69 74 25 2c 31 | 32 2c 79 65 71 78 5f 69 |(Edit%,1|2,yeqx_i|
|00000980| 25 29 0d 03 a2 24 f2 57 | 69 6d 70 49 63 6f 6e 53 |%)...$.W|impIconS|
|00000990| 68 61 64 65 28 45 64 69 | 74 25 2c 31 34 2c 79 65 |hade(Edi|t%,14,ye|
|000009a0| 71 78 5f 69 25 29 0d 03 | ac 24 f2 57 69 6d 70 49 |qx_i%)..|.$.WimpI|
|000009b0| 63 6f 6e 53 68 61 64 65 | 28 45 64 69 74 25 2c 31 |conShade|(Edit%,1|
|000009c0| 36 2c 79 65 71 78 5f 69 | 25 29 0d 03 b6 05 e1 0d |6,yeqx_i|%)......|
|000009d0| 03 c0 0f dd f2 63 6c 6f | 73 65 65 64 69 74 0d 03 |.....clo|seedit..|
|000009e0| ca 31 f2 43 6c 6f 73 65 | 57 69 6e 28 45 64 69 74 |.1.Close|Win(Edit|
|000009f0| 25 29 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |%):.."Wi|mp_GetWi|
|00000a00| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 65 64 25 0d |ndowStat|e",,ed%.|
|00000a10| 03 d4 0c 65 64 69 74 6f | 25 3d a3 0d 03 de 05 e1 |...edito|%=......|
|00000a20| 0d 03 e8 05 3a 0d 03 f2 | 0b dd f2 69 6e 70 75 74 |....:...|...input|
|00000a30| 0d 03 fc 11 79 65 71 78 | 25 3d 79 65 71 78 5f 69 |....yeqx|%=yeqx_i|
|00000a40| 25 0d 04 06 21 78 6d 69 | 6e 24 3d 24 78 6d 69 6e |%...!xmi|n$=$xmin|
|00000a50| 5f 69 25 3a 78 6d 61 78 | 24 3d 24 78 6d 61 78 5f |_i%:xmax|$=$xmax_|
|00000a60| 69 25 0d 04 10 29 78 69 | 6e 63 69 25 3d bb 28 24 |i%...)xi|nci%=.($|
|00000a70| 78 69 6e 63 69 5f 69 25 | 29 3a 78 69 6e 63 25 3d |xinci_i%|):xinc%=|
|00000a80| bb 28 24 78 69 6e 63 5f | 69 25 29 0d 04 1a 14 78 |.($xinc_|i%)....x|
|00000a90| 66 75 6e 63 24 3d 24 78 | 66 75 6e 63 5f 69 25 0d |func$=$x|func_i%.|
|00000aa0| 04 24 21 79 6d 69 6e 24 | 3d 24 79 6d 69 6e 5f 69 |.$!ymin$|=$ymin_i|
|00000ab0| 25 3a 79 6d 61 78 24 3d | 24 79 6d 61 78 5f 69 25 |%:ymax$=|$ymax_i%|
|00000ac0| 0d 04 2e 29 79 69 6e 63 | 69 25 3d bb 28 24 79 69 |...)yinc|i%=.($yi|
|00000ad0| 6e 63 69 5f 69 25 29 3a | 79 69 6e 63 25 3d bb 28 |nci_i%):|yinc%=.(|
|00000ae0| 24 79 69 6e 63 5f 69 25 | 29 0d 04 38 14 79 66 75 |$yinc_i%|)..8.yfu|
|00000af0| 6e 63 24 3d 24 79 66 75 | 6e 63 5f 69 25 0d 04 42 |nc$=$yfu|nc_i%..B|
|00000b00| 0c f2 67 65 6e 64 61 74 | 61 0d 04 4c 17 e7 20 62 |..gendat|a..L.. b|
|00000b10| 75 74 25 3d 34 20 f2 63 | 6c 6f 73 65 65 64 69 74 |ut%=4 .c|loseedit|
|00000b20| 0d 04 56 05 e1 0d 04 60 | 05 3a 0d 04 6a 0a dd f2 |..V....`|.:..j...|
|00000b30| 73 61 76 65 0d 04 74 31 | 66 6e 24 3d a4 4c 65 61 |save..t1|fn$=.Lea|
|00000b40| 66 28 a4 47 65 74 53 74 | 72 28 66 6e 25 29 29 3a |f(.GetSt|r(fn%)):|
|00000b50| f2 57 69 6d 70 44 6f 53 | 61 76 65 28 66 6e 24 2c |.WimpDoS|ave(fn$,|
|00000b60| 26 37 31 32 29 0d 04 7e | 05 e1 0d 04 88 05 3a 0d |&712)..~|......:.|
|00000b70| 04 92 10 dd f2 64 6f 73 | 61 76 65 28 44 25 29 0d |.....dos|ave(D%).|
|00000b80| 04 9c 37 e7 20 44 25 20 | 66 6e 24 3d a4 47 65 74 |..7. D% |fn$=.Get|
|00000b90| 53 74 72 28 62 25 2b 34 | 34 29 3a 24 66 6e 25 3d |Str(b%+4|4):$fn%=|
|00000ba0| 66 6e 24 20 8b 20 66 6e | 24 3d a4 47 65 74 53 74 |fn$ . fn|$=.GetSt|
|00000bb0| 72 28 66 6e 25 29 0d 04 | a6 59 e7 20 a7 66 6e 24 |r(fn%)..|.Y. .fn$|
|00000bc0| 2c 22 2e 22 29 3d 30 20 | 5a 25 3d a4 57 69 6d 70 |,".")=0 |Z%=.Wimp|
|00000bd0| 45 72 72 28 22 54 6f 20 | 73 61 76 65 2c 20 64 72 |Err("To |save, dr|
|00000be0| 61 67 20 74 68 65 20 66 | 69 6c 65 20 69 63 6f 6e |ag the f|ile icon|
|00000bf0| 20 74 6f 20 61 20 64 69 | 72 65 63 74 6f 72 79 20 | to a di|rectory |
|00000c00| 76 69 65 77 65 72 20 22 | 2b 66 6e 24 29 3a e1 0d |viewer "|+fn$):..|
|00000c10| 04 b0 1c ea 85 3a ee 85 | ea 3a 5a 25 3d a4 57 69 |.....:..|.:Z%=.Wi|
|00000c20| 6d 70 45 72 72 28 f6 24 | 29 3a e1 0d 04 ba 27 24 |mpErr(.$|):....'$|
|00000c30| 6c 69 73 73 61 5f 78 6d | 69 6e 3d 78 6d 69 6e 24 |lissa_xm|in=xmin$|
|00000c40| 3a 24 6c 69 73 73 61 5f | 78 6d 61 78 3d 78 6d 61 |:$lissa_|xmax=xma|
|00000c50| 78 24 0d 04 c4 27 24 6c | 69 73 73 61 5f 79 6d 69 |x$...'$l|issa_ymi|
|00000c60| 6e 3d 79 6d 69 6e 24 3a | 24 6c 69 73 73 61 5f 79 |n=ymin$:|$lissa_y|
|00000c70| 6d 61 78 3d 79 6d 61 78 | 24 0d 04 ce 2b 24 6c 69 |max=ymax|$...+$li|
|00000c80| 73 73 61 5f 78 66 75 6e | 63 3d 78 66 75 6e 63 24 |ssa_xfun|c=xfunc$|
|00000c90| 3a 24 6c 69 73 73 61 5f | 79 66 75 6e 63 3d 79 66 |:$lissa_|yfunc=yf|
|00000ca0| 75 6e 63 24 0d 04 d8 15 | 21 6c 69 73 73 61 5f 79 |unc$....|!lissa_y|
|00000cb0| 65 71 78 3d 79 65 71 78 | 25 0d 04 e2 3c c8 99 22 |eqx=yeqx|%...<.."|
|00000cc0| 4f 53 5f 46 69 6c 65 22 | 2c 31 30 2c 66 6e 24 2c |OS_File"|,10,fn$,|
|00000cd0| 26 37 31 32 2c 2c 6c 69 | 73 73 61 5f 66 69 6c 65 |&712,,li|ssa_file|
|00000ce0| 5f 73 74 61 72 74 2c 6c | 69 73 73 61 5f 66 69 6c |_start,l|issa_fil|
|00000cf0| 65 5f 65 6e 64 0d 04 ec | 15 e7 20 44 25 20 f2 57 |e_end...|.. D% .W|
|00000d00| 69 6d 70 41 63 6b 53 61 | 76 65 0d 04 f6 0c f2 57 |impAckSa|ve.....W|
|00000d10| 69 6d 70 43 6c 4d 0d 05 | 00 29 24 45 64 69 74 69 |impClM..|.)$Editi|
|00000d20| 25 3d 22 4c 69 73 73 61 | 6a 6f 75 73 20 45 64 69 |%="Lissa|jous Edi|
|00000d30| 74 3a 20 22 2b a4 4c 65 | 61 66 28 66 6e 24 29 0d |t: "+.Le|af(fn$).|
|00000d40| 05 0a 05 e1 0d 05 14 05 | 3a 0d 05 1e 0a dd f2 6c |........|:......l|
|00000d50| 6f 61 64 0d 05 28 14 e7 | 20 62 25 21 34 30 20 3c |oad..(..| b%!40 <|
|00000d60| 3e 26 37 31 32 20 e1 0d | 05 32 3e 24 66 6e 25 3d |>&712 ..|.2>$fn%=|
|00000d70| a4 47 65 74 53 74 72 28 | 62 25 2b 34 34 29 3a 24 |.GetStr(|b%+44):$|
|00000d80| 45 64 69 74 69 25 3d 22 | 4c 69 73 73 61 6a 6f 75 |Editi%="|Lissajou|
|00000d90| 73 20 45 64 69 74 3a 20 | 22 2b a4 4c 65 61 66 28 |s Edit: |"+.Leaf(|
|00000da0| 24 66 6e 25 29 0d 05 3c | 2d c8 99 22 4f 53 5f 46 |$fn%)..<|-.."OS_F|
|00000db0| 69 6c 65 22 2c 31 36 2c | 62 25 2b 34 34 2c 6c 69 |ile",16,|b%+44,li|
|00000dc0| 73 73 61 5f 66 69 6c 65 | 5f 73 74 61 72 74 2c 30 |ssa_file|_start,0|
|00000dd0| 2c 30 0d 05 46 10 f2 57 | 69 6d 70 41 63 6b 4c 6f |,0..F..W|impAckLo|
|00000de0| 61 64 0d 05 50 15 79 65 | 71 78 25 3d 21 6c 69 73 |ad..P.ye|qx%=!lis|
|00000df0| 73 61 5f 79 65 71 78 0d | 05 5a 27 78 6d 69 6e 24 |sa_yeqx.|.Z'xmin$|
|00000e00| 3d 24 6c 69 73 73 61 5f | 78 6d 69 6e 3a 78 6d 61 |=$lissa_|xmin:xma|
|00000e10| 78 24 3d 24 6c 69 73 73 | 61 5f 78 6d 61 78 0d 05 |x$=$liss|a_xmax..|
|00000e20| 64 29 78 69 6e 63 69 25 | 3d 21 6c 69 73 73 61 5f |d)xinci%|=!lissa_|
|00000e30| 78 69 6e 63 69 3a 78 69 | 6e 63 25 3d 21 6c 69 73 |xinci:xi|nc%=!lis|
|00000e40| 73 61 5f 78 69 6e 63 0d | 05 6e 17 78 66 75 6e 63 |sa_xinc.|.n.xfunc|
|00000e50| 24 3d 24 6c 69 73 73 61 | 5f 78 66 75 6e 63 0d 05 |$=$lissa|_xfunc..|
|00000e60| 78 27 79 6d 69 6e 24 3d | 24 6c 69 73 73 61 5f 79 |x'ymin$=|$lissa_y|
|00000e70| 6d 69 6e 3a 79 6d 61 78 | 24 3d 24 6c 69 73 73 61 |min:ymax|$=$lissa|
|00000e80| 5f 79 6d 61 78 0d 05 82 | 29 79 69 6e 63 69 25 3d |_ymax...|)yinci%=|
|00000e90| 21 6c 69 73 73 61 5f 79 | 69 6e 63 69 3a 79 69 6e |!lissa_y|inci:yin|
|00000ea0| 63 25 3d 21 6c 69 73 73 | 61 5f 79 69 6e 63 0d 05 |c%=!liss|a_yinc..|
|00000eb0| 8c 17 79 66 75 6e 63 24 | 3d 24 6c 69 73 73 61 5f |..yfunc$|=$lissa_|
|00000ec0| 79 66 75 6e 63 0d 05 96 | 42 e7 20 65 64 69 74 6f |yfunc...|B. edito|
|00000ed0| 25 20 f2 65 64 69 74 69 | 63 6f 6e 64 61 74 61 3a |% .editi|condata:|
|00000ee0| f2 52 65 66 72 65 73 68 | 57 69 6e 28 45 64 69 74 |.Refresh|Win(Edit|
|00000ef0| 25 29 3a f2 57 69 6d 70 | 4e 65 77 54 69 74 6c 65 |%):.Wimp|NewTitle|
|00000f00| 28 45 64 69 74 25 29 0d | 05 a0 05 e1 0d 05 aa 05 |(Edit%).|........|
|00000f10| 3a 0d 05 b4 15 dd f2 6b | 65 79 28 69 63 6f 6e 25 |:......k|ey(icon%|
|00000f20| 2c 6b 65 79 25 29 0d 05 | be 0d c8 8e 20 6b 65 79 |,key%)..|.... key|
|00000f30| 25 20 ca 0d 05 c8 0e c9 | 20 31 33 2c 26 31 38 45 |% ......| 13,&18E|
|00000f40| 3a 0d 05 d2 10 20 20 c8 | 8e 20 69 63 6f 6e 25 20 |:.... .|. icon% |
|00000f50| ca 0d 05 dc 25 20 20 20 | 20 c9 20 33 2c 35 2c 31 |....% | . 3,5,1|
|00000f60| 32 2c 31 34 2c 32 30 2c | 32 32 2c 32 34 3a 69 63 |2,14,20,|22,24:ic|
|00000f70| 6f 6e 25 2b 3d 32 0d 05 | e6 29 20 20 20 20 c9 20 |on%+=2..|.) . |
|00000f80| 37 3a e7 20 79 65 71 78 | 5f 69 25 20 69 63 6f 6e |7:. yeqx|_i% icon|
|00000f90| 25 3d 32 30 20 8b 20 69 | 63 6f 6e 25 3d 31 32 0d |%=20 . i|con%=12.|
|00000fa0| 05 f0 15 20 20 20 20 c9 | 20 31 36 3a 69 63 6f 6e |... .| 16:icon|
|00000fb0| 25 3d 32 30 0d 05 fa 14 | 20 20 20 20 c9 20 32 36 |%=20....| . 26|
|00000fc0| 3a 69 63 6f 6e 25 3d 33 | 0d 06 04 07 20 20 cb 0d |:icon%=3|.... ..|
|00000fd0| 06 0e 0b c9 20 26 31 38 | 46 3a 0d 06 18 10 20 20 |.... &18|F:.... |
|00000fe0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 06 22 25 20 20 |.. icon%| ..."% |
|00000ff0| 20 20 c9 20 35 2c 37 2c | 31 34 2c 31 36 2c 32 32 | . 5,7,|14,16,22|
|00001000| 2c 32 34 2c 32 36 3a 69 | 63 6f 6e 25 2d 3d 32 0d |,24,26:i|con%-=2.|
|00001010| 06 2c 14 20 20 20 20 c9 | 20 33 3a 69 63 6f 6e 25 |.,. .| 3:icon%|
|00001020| 3d 32 36 0d 06 36 14 20 | 20 20 20 c9 20 31 32 3a |=26..6. | . 12:|
|00001030| 69 63 6f 6e 25 3d 37 0d | 06 40 29 20 20 20 20 c9 |icon%=7.|.@) .|
|00001040| 20 32 30 3a e7 20 79 65 | 71 78 5f 69 25 20 69 63 | 20:. ye|qx_i% ic|
|00001050| 6f 6e 25 3d 37 20 8b 20 | 69 63 6f 6e 25 3d 31 36 |on%=7 . |icon%=16|
|00001060| 0d 06 4a 07 20 20 cb 0d | 06 54 22 7f 3a c8 99 22 |..J. ..|.T".:.."|
|00001070| 57 69 6d 70 5f 50 72 6f | 63 65 73 73 4b 65 79 22 |Wimp_Pro|cessKey"|
|00001080| 2c 28 6b 65 79 25 29 3a | e1 0d 06 5e 05 cb 0d 06 |,(key%):|...^....|
|00001090| 68 32 c8 99 22 57 69 6d | 70 5f 53 65 74 43 61 72 |h2.."Wim|p_SetCar|
|000010a0| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 45 64 69 74 |etPositi|on",Edit|
|000010b0| 25 2c 69 63 6f 6e 25 2c | 30 2c 30 2c 2d 31 2c 30 |%,icon%,|0,0,-1,0|
|000010c0| 0d 06 72 05 e1 0d 06 7c | 05 3a 0d 06 86 0f dd f2 |..r....||.:......|
|000010d0| 73 74 61 72 74 64 72 61 | 77 0d 06 90 1e c8 99 22 |startdra|w......"|
|000010e0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000010f0| 2c 2c 64 77 64 77 25 0d | 06 9a 18 f5 3a c8 97 20 |,,dwdw%.|....:.. |
|00001100| 41 25 2c 42 25 2c 43 25 | 3a fd 20 43 25 3d 30 0d |A%,B%,C%|:. C%=0.|
|00001110| 06 a4 05 e1 0d 06 ae 05 | 3a 0d 06 b8 0a dd f2 64 |........|:......d|
|00001120| 72 61 77 0d 06 c2 12 e7 | 20 21 62 25 3c 3e 44 72 |raw.....| !b%<>Dr|
|00001130| 61 77 25 20 e1 0d 06 cc | 0a d6 6c 69 73 73 61 0d |aw% ....|..lissa.|
|00001140| 06 d6 27 78 69 6e 63 25 | 3d 21 6c 69 73 73 61 5f |..'xinc%|=!lissa_|
|00001150| 78 69 6e 63 3a 79 69 6e | 63 25 3d 21 6c 69 73 73 |xinc:yin|c%=!liss|
|00001160| 61 5f 79 69 6e 63 0d 06 | e0 14 f2 43 6c 6f 73 65 |a_yinc..|...Close|
|00001170| 57 69 6e 28 44 72 61 77 | 25 29 0d 06 ea 2d e7 20 |Win(Draw|%)...-. |
|00001180| 65 64 69 74 6f 25 20 f2 | 65 64 69 74 69 63 6f 6e |edito% .|editicon|
|00001190| 64 61 74 61 3a f2 52 65 | 66 72 65 73 68 57 69 6e |data:.Re|freshWin|
|000011a0| 28 45 64 69 74 25 29 0d | 06 f4 0b 2a 46 58 32 31 |(Edit%).|...*FX21|
|000011b0| 2c 30 0d 06 fe 0b 2a 46 | 58 32 31 2c 39 0d 07 08 |,0....*F|X21,9...|
|000011c0| 05 e1 0d 07 12 05 3a 0d | 07 1c 0a dd f2 69 6e 69 |......:.|.....ini|
|000011d0| 74 0d 07 26 13 de 20 78 | 28 32 35 36 29 2c 79 28 |t..&.. x|(256),y(|
|000011e0| 32 35 36 29 0d 07 30 34 | 6d 65 6e 75 24 3d 22 49 |256)..04|menu$="I|
|000011f0| 6e 66 6f 3e 49 6e 66 6f | 25 2c 44 72 61 77 2c 45 |nfo>Info|%,Draw,E|
|00001200| 64 69 74 2c 53 61 76 65 | 3e 53 61 76 65 41 73 25 |dit,Save|>SaveAs%|
|00001210| 22 3a 66 6e 24 3d 22 22 | 0d 07 3a 3e 78 6d 69 6e |":fn$=""|..:>xmin|
|00001220| 24 3d 22 30 22 3a 78 6d | 61 78 24 3d 22 32 2a 50 |$="0":xm|ax$="2*P|
|00001230| 49 22 3a 78 66 75 6e 63 | 24 3d 22 53 49 4e 78 22 |I":xfunc|$="SINx"|
|00001240| 3a 78 69 6e 63 69 25 3d | 35 3a 78 69 6e 63 25 3d |:xinci%=|5:xinc%=|
|00001250| 78 69 6e 63 69 25 0d 07 | 44 3e 79 6d 69 6e 24 3d |xinci%..|D>ymin$=|
|00001260| 22 30 22 3a 79 6d 61 78 | 24 3d 22 32 2a 50 49 22 |"0":ymax|$="2*PI"|
|00001270| 3a 79 66 75 6e 63 24 3d | 22 53 49 4e 79 22 3a 79 |:yfunc$=|"SINy":y|
|00001280| 69 6e 63 69 25 3d 32 3a | 79 69 6e 63 25 3d 79 69 |inci%=2:|yinc%=yi|
|00001290| 6e 63 69 25 0d 07 4e 0b | 79 65 71 78 25 3d b9 0d |nci%..N.|yeqx%=..|
|000012a0| 07 58 3f 64 77 64 77 25 | 21 34 3d 30 3a 64 77 64 |.X?dwdw%|!4=0:dwd|
|000012b0| 77 25 21 38 3d 30 3a 64 | 77 64 77 25 21 31 32 3d |w%!8=0:d|wdw%!12=|
|000012c0| 34 30 39 36 3a 64 77 64 | 77 25 21 31 36 3d 32 30 |4096:dwd|w%!16=20|
|000012d0| 34 38 3a 64 77 64 77 25 | 21 32 38 3d 2d 31 0d 07 |48:dwdw%|!28=-1..|
|000012e0| 62 37 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |b7.."Wim|p_Create|
|000012f0| 57 69 6e 64 6f 77 22 2c | 2c 64 77 64 77 25 2b 34 |Window",|,dwdw%+4|
|00001300| 20 b8 20 44 72 61 77 25 | 3a 21 64 77 64 77 25 3d | . Draw%|:!dwdw%=|
|00001310| 44 72 61 77 25 0d 07 6c | 11 f2 61 73 6d 3a f2 67 |Draw%..l|..asm:.g|
|00001320| 65 6e 64 61 74 61 0d 07 | 76 0c 65 64 69 74 6f 25 |endata..|v.edito%|
|00001330| 3d a3 0d 07 80 05 e1 0d | 07 8a 05 3a 0d 07 94 09 |=.......|...:....|
|00001340| dd f2 61 73 6d 0d 07 9e | 10 de 20 63 6f 64 65 25 |..asm...|.. code%|
|00001350| 20 32 30 34 38 0d 07 a8 | 0a f4 20 52 65 67 73 0d | 2048...|.. Regs.|
|00001360| 07 b2 4f 78 69 6e 64 65 | 78 3d 33 3a 79 69 6e 64 |..Oxinde|x=3:yind|
|00001370| 65 78 3d 34 3a 78 77 61 | 76 65 3d 35 3a 79 77 61 |ex=4:xwa|ve=5:ywa|
|00001380| 76 65 3d 36 3a 78 69 6e | 63 3d 37 3a 79 69 6e 63 |ve=6:xin|c=7:yinc|
|00001390| 3d 38 3a 6c 69 73 73 61 | 66 6c 61 67 3d 39 3a 63 |=8:lissa|flag=9:c|
|000013a0| 6f 75 6e 74 3d 31 30 3a | 72 74 6e 3d 31 31 0d 07 |ount=10:|rtn=11..|
|000013b0| bc 13 e3 20 61 73 6d 3d | 30 20 b8 20 32 20 88 20 |... asm=|0 . 2 . |
|000013c0| 32 0d 07 c6 0c 50 25 3d | 63 6f 64 65 25 0d 07 d0 |2....P%=|code%...|
|000013d0| 0c 5b 4f 50 54 20 61 73 | 6d 0d 07 da 0a 2e 6c 69 |.[OPT as|m.....li|
|000013e0| 73 73 61 0d 07 e4 1d 53 | 54 4d 46 44 20 52 31 33 |ssa....S|TMFD R13|
|000013f0| 21 2c 7b 52 30 2d 52 33 | 2c 52 39 2c 52 31 34 7d |!,{R0-R3|,R9,R14}|
|00001400| 0d 07 ee 12 41 44 52 20 | 52 30 2c 76 64 75 76 61 |....ADR |R0,vduva|
|00001410| 72 73 0d 07 f8 14 41 44 | 52 20 52 31 2c 6d 6f 64 |rs....AD|R R1,mod|
|00001420| 65 5f 76 61 72 73 0d 08 | 02 1e 53 57 49 20 22 58 |e_vars..|..SWI "X|
|00001430| 4f 53 5f 52 65 61 64 56 | 64 75 56 61 72 69 61 62 |OS_ReadV|duVariab|
|00001440| 6c 65 73 22 0d 08 0c 10 | 4c 44 52 20 52 30 2c 78 |les"....|LDR R0,x|
|00001450| 5f 65 69 67 0d 08 16 3c | 52 53 42 20 52 30 2c 52 |_eig...<|RSB R0,R|
|00001460| 30 2c 23 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |0,#2 | |
|00001470| 20 20 20 20 20 20 20 20 | 3b 20 73 63 61 6c 61 72 | |; scalar|
|00001480| 20 66 6f 72 20 78 20 74 | 6f 20 70 69 78 65 6c 73 | for x t|o pixels|
|00001490| 0d 08 20 13 53 54 52 20 | 52 30 2c 6c 69 73 73 61 |.. .STR |R0,lissa|
|000014a0| 5f 78 73 0d 08 2a 10 4c | 44 52 20 52 30 2c 79 5f |_xs..*.L|DR R0,y_|
|000014b0| 65 69 67 0d 08 34 3c 52 | 53 42 20 52 30 2c 52 30 |eig..4<R|SB R0,R0|
|000014c0| 2c 23 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,#2 | |
|000014d0| 20 20 20 20 20 20 20 3b | 20 73 63 61 6c 61 72 20 | ;| scalar |
|000014e0| 66 6f 72 20 79 20 74 6f | 20 70 69 78 65 6c 73 0d |for y to| pixels.|
|000014f0| 08 3e 13 53 54 52 20 52 | 30 2c 6c 69 73 73 61 5f |.>.STR R|0,lissa_|
|00001500| 79 73 0d 08 48 16 4c 44 | 52 20 52 32 2c 6c 69 73 |ys..H.LD|R R2,lis|
|00001510| 73 61 5f 78 69 6e 63 69 | 0d 08 52 16 4c 44 52 20 |sa_xinci|..R.LDR |
|00001520| 52 33 2c 6c 69 73 73 61 | 5f 79 69 6e 63 69 0d 08 |R3,lissa|_yinci..|
|00001530| 5c 15 53 54 52 20 52 32 | 2c 6c 69 73 73 61 5f 78 |\.STR R2|,lissa_x|
|00001540| 69 6e 63 0d 08 66 15 53 | 54 52 20 52 33 2c 6c 69 |inc..f.S|TR R3,li|
|00001550| 73 73 61 5f 79 69 6e 63 | 0d 08 70 05 3b 0d 08 7a |ssa_yinc|..p.;..z|
|00001560| 32 4d 4f 56 20 6c 69 73 | 73 61 66 6c 61 67 2c 23 |2MOV lis|saflag,#|
|00001570| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2 | |
|00001580| 20 3b 20 64 72 61 77 20 | 69 6e 69 74 69 61 6c 0d | ; draw |initial.|
|00001590| 08 84 11 42 4c 20 64 72 | 61 77 5f 6c 69 73 73 61 |...BL dr|aw_lissa|
|000015a0| 0d 08 8e 09 2e 6c 6f 6f | 70 0d 08 98 0e 4d 4f 56 |.....loo|p....MOV|
|000015b0| 20 52 30 2c 23 31 39 0d | 08 a2 12 53 57 49 20 22 | R0,#19.|...SWI "|
|000015c0| 58 4f 53 5f 42 79 74 65 | 22 0d 08 ac 14 4d 4f 56 |XOS_Byte|"....MOV|
|000015d0| 20 6c 69 73 73 61 66 6c | 61 67 2c 23 33 0d 08 b6 | lissafl|ag,#3...|
|000015e0| 11 42 4c 20 64 72 61 77 | 5f 6c 69 73 73 61 0d 08 |.BL draw|_lissa..|
|000015f0| c0 18 3b 20 47 65 74 20 | 6b 65 79 62 6f 61 72 64 |..; Get |keyboard|
|00001600| 20 69 6e 70 75 74 0d 08 | ca 0f 4d 4f 56 20 52 30 | input..|..MOV R0|
|00001610| 2c 23 31 32 31 0d 08 d4 | 0d 4d 4f 56 20 52 31 2c |,#121...|.MOV R1,|
|00001620| 23 38 0d 08 de 33 53 57 | 49 20 22 58 4f 53 5f 42 |#8...3SW|I "XOS_B|
|00001630| 79 74 65 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |yte" | |
|00001640| 20 20 20 20 20 20 3b 20 | 6b 65 79 62 6f 61 72 64 | ; |keyboard|
|00001650| 20 73 63 61 6e 0d 08 e8 | 0f 43 4d 50 20 52 31 2c | scan...|.CMP R1,|
|00001660| 23 32 35 35 0d 08 f2 0c | 42 45 51 20 6c 6f 6f 70 |#255....|BEQ loop|
|00001670| 0d 08 fc 0e 43 4d 50 20 | 52 31 2c 23 31 36 0d 09 |....CMP |R1,#16..|
|00001680| 06 33 42 4c 54 20 6c 69 | 73 73 61 5f 65 78 69 74 |.3BLT li|ssa_exit|
|00001690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016a0| 20 20 3b 20 6d 6f 75 73 | 65 20 70 72 65 73 73 65 | ; mous|e presse|
|000016b0| 64 0d 09 10 0f 4d 4f 56 | 20 52 30 2c 23 31 35 32 |d....MOV| R0,#152|
|000016c0| 0d 09 1a 2e 4d 4f 56 20 | 52 31 2c 23 30 20 20 20 |....MOV |R1,#0 |
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016e0| 20 20 20 20 3b 20 6b 65 | 79 62 6f 61 72 64 0d 09 | ; ke|yboard..|
|000016f0| 24 34 53 57 49 20 22 58 | 4f 53 5f 42 79 74 65 22 |$4SWI "X|OS_Byte"|
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001710| 20 20 3b 20 65 78 61 6d | 69 6e 65 20 62 75 66 66 | ; exam|ine buff|
|00001720| 65 72 0d 09 2e 2b 42 43 | 53 20 6c 6f 6f 70 20 20 |er...+BC|S loop |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001740| 20 20 20 20 20 20 3b 20 | 65 6d 70 74 79 0d 09 38 | ; |empty..8|
|00001750| 12 53 57 49 20 22 4f 53 | 5f 52 65 61 64 43 22 0d |.SWI "OS|_ReadC".|
|00001760| 09 42 0d 43 4d 50 20 52 | 30 2c 23 30 0d 09 4c 14 |.B.CMP R|0,#0..L.|
|00001770| 53 57 49 45 51 20 22 4f | 53 5f 52 65 61 64 43 22 |SWIEQ "O|S_ReadC"|
|00001780| 0d 09 56 0e 43 4d 50 20 | 52 30 2c 23 32 37 0d 09 |..V.CMP |R0,#27..|
|00001790| 60 12 42 45 51 20 6c 69 | 73 73 61 5f 65 78 69 74 |`.BEQ li|ssa_exit|
|000017a0| 0d 09 6a 15 4c 44 52 20 | 52 32 2c 6c 69 73 73 61 |..j.LDR |R2,lissa|
|000017b0| 5f 78 69 6e 63 0d 09 74 | 30 43 4d 50 20 52 30 2c |_xinc..t|0CMP R0,|
|000017c0| 23 26 38 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |#&8C | |
|000017d0| 20 20 20 20 20 20 20 20 | 20 3b 20 4c 65 66 74 20 | | ; Left |
|000017e0| 61 72 72 6f 77 0d 09 7e | 12 53 55 42 45 51 20 52 |arrow..~|.SUBEQ R|
|000017f0| 32 2c 52 32 2c 23 31 0d | 09 88 31 43 4d 50 20 52 |2,R2,#1.|..1CMP R|
|00001800| 30 2c 23 26 38 44 20 20 | 20 20 20 20 20 20 20 20 |0,#&8D | |
|00001810| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 52 69 67 | | ; Rig|
|00001820| 68 74 20 61 72 72 6f 77 | 0d 09 92 12 41 44 44 45 |ht arrow|....ADDE|
|00001830| 51 20 52 32 2c 52 32 2c | 23 31 0d 09 9c 15 4c 44 |Q R2,R2,|#1....LD|
|00001840| 52 20 52 33 2c 6c 69 73 | 73 61 5f 79 69 6e 63 0d |R R3,lis|sa_yinc.|
|00001850| 09 a6 30 43 4d 50 20 52 | 30 2c 23 26 38 45 20 20 |..0CMP R|0,#&8E |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001870| 20 20 20 3b 20 64 6f 77 | 6e 20 61 72 72 6f 77 0d | ; dow|n arrow.|
|00001880| 09 b0 12 53 55 42 45 51 | 20 52 33 2c 52 33 2c 23 |...SUBEQ| R3,R3,#|
|00001890| 31 0d 09 ba 2e 43 4d 50 | 20 52 30 2c 23 26 38 46 |1....CMP| R0,#&8F|
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018b0| 20 20 20 20 20 3b 20 55 | 70 20 61 72 72 6f 77 0d | ; U|p arrow.|
|000018c0| 09 c4 12 41 44 44 45 51 | 20 52 33 2c 52 33 2c 23 |...ADDEQ| R3,R3,#|
|000018d0| 31 0d 09 ce 2c 43 4d 50 | 20 52 30 2c 23 31 33 20 |1...,CMP| R0,#13 |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018f0| 20 20 20 20 20 3b 20 72 | 65 74 75 72 6e 0d 09 d8 | ; r|eturn...|
|00001900| 18 4c 44 52 45 51 20 52 | 32 2c 6c 69 73 73 61 5f |.LDREQ R|2,lissa_|
|00001910| 78 69 6e 63 69 0d 09 e2 | 18 4c 44 52 45 51 20 52 |xinci...|.LDREQ R|
|00001920| 33 2c 6c 69 73 73 61 5f | 79 69 6e 63 69 0d 09 ec |3,lissa_|yinci...|
|00001930| 14 4d 4f 56 20 6c 69 73 | 73 61 66 6c 61 67 2c 23 |.MOV lis|saflag,#|
|00001940| 31 0d 09 f6 2c 42 4c 20 | 64 72 61 77 5f 6c 69 73 |1...,BL |draw_lis|
|00001950| 73 61 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |sa | |
|00001960| 20 20 20 20 20 3b 20 75 | 6e 64 72 61 77 0d 0a 00 | ; u|ndraw...|
|00001970| 15 53 54 52 20 52 32 2c | 6c 69 73 73 61 5f 78 69 |.STR R2,|lissa_xi|
|00001980| 6e 63 0d 0a 0a 15 53 54 | 52 20 52 33 2c 6c 69 73 |nc....ST|R R3,lis|
|00001990| 73 61 5f 79 69 6e 63 0d | 0a 14 14 4d 4f 56 20 6c |sa_yinc.|...MOV l|
|000019a0| 69 73 73 61 66 6c 61 67 | 2c 23 32 0d 0a 1e 2a 42 |issaflag|,#2...*B|
|000019b0| 4c 20 64 72 61 77 5f 6c | 69 73 73 61 20 20 20 20 |L draw_l|issa |
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000019d0| 20 64 72 61 77 0d 0a 28 | 0a 42 20 6c 6f 6f 70 0d | draw..(|.B loop.|
|000019e0| 0a 32 0f 2e 6c 69 73 73 | 61 5f 65 78 69 74 0d 0a |.2..liss|a_exit..|
|000019f0| 3c 1d 4c 44 4d 46 44 20 | 52 31 33 21 2c 7b 52 30 |<.LDMFD |R13!,{R0|
|00001a00| 2d 52 33 2c 52 39 2c 50 | 43 7d 5e 0d 0a 46 05 3b |-R3,R9,P|C}^..F.;|
|00001a10| 0d 0a 50 25 3b 20 52 39 | 3d 25 30 31 20 66 6f 72 |..P%; R9|=%01 for|
|00001a20| 20 75 6e 64 72 61 77 2c | 20 25 31 30 20 66 6f 72 | undraw,| %10 for|
|00001a30| 20 64 72 61 77 0d 0a 5a | 0f 2e 64 72 61 77 5f 6c | draw..Z|..draw_l|
|00001a40| 69 73 73 61 0d 0a 64 1b | 53 54 4d 46 44 20 52 31 |issa..d.|STMFD R1|
|00001a50| 33 21 2c 7b 52 30 2d 52 | 31 32 2c 52 31 34 7d 0d |3!,{R0-R|12,R14}.|
|00001a60| 0a 6e 0e 4c 44 52 20 52 | 30 2c 62 70 70 0d 0a 78 |.n.LDR R|0,bpp..x|
|00001a70| 2e 43 4d 50 20 52 30 2c | 23 30 20 20 20 20 20 20 |.CMP R0,|#0 |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a90| 20 3b 20 32 20 63 6f 6c | 6f 75 72 0d 0a 82 13 41 | ; 2 col|our....A|
|00001aa0| 44 52 45 51 20 72 74 6e | 2c 70 6c 6f 74 32 0d 0a |DREQ rtn|,plot2..|
|00001ab0| 8c 2e 43 4d 50 20 52 30 | 2c 23 31 20 20 20 20 20 |..CMP R0|,#1 |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ad0| 20 20 3b 20 34 20 63 6f | 6c 6f 75 72 0d 0a 96 13 | ; 4 co|lour....|
|00001ae0| 41 44 52 45 51 20 72 74 | 6e 2c 70 6c 6f 74 34 0d |ADREQ rt|n,plot4.|
|00001af0| 0a a0 2f 43 4d 50 20 52 | 30 2c 23 32 20 20 20 20 |../CMP R|0,#2 |
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b10| 20 20 20 3b 20 31 36 20 | 63 6f 6c 6f 75 72 0d 0a | ; 16 |colour..|
|00001b20| aa 14 41 44 52 45 51 20 | 72 74 6e 2c 70 6c 6f 74 |..ADREQ |rtn,plot|
|00001b30| 31 36 0d 0a b4 30 43 4d | 50 20 52 30 2c 23 33 20 |16...0CM|P R0,#3 |
|00001b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b50| 20 20 20 20 20 20 3b 20 | 32 35 36 20 63 6f 6c 6f | ; |256 colo|
|00001b60| 75 72 0d 0a be 15 41 44 | 52 45 51 20 72 74 6e 2c |ur....AD|REQ rtn,|
|00001b70| 70 6c 6f 74 32 35 36 0d | 0a c8 05 3b 0d 0a d2 16 |plot256.|...;....|
|00001b80| 4c 44 52 42 20 78 69 6e | 64 65 78 2c 78 73 74 61 |LDRB xin|dex,xsta|
|00001b90| 72 74 0d 0a dc 16 4c 44 | 52 42 20 79 69 6e 64 65 |rt....LD|RB yinde|
|00001ba0| 78 2c 79 73 74 61 72 74 | 0d 0a e6 18 41 44 52 20 |x,ystart|....ADR |
|00001bb0| 78 77 61 76 65 2c 78 77 | 61 76 65 5f 64 61 74 61 |xwave,xw|ave_data|
|00001bc0| 0d 0a f0 18 41 44 52 20 | 79 77 61 76 65 2c 79 77 |....ADR |ywave,yw|
|00001bd0| 61 76 65 5f 64 61 74 61 | 0d 0a fa 17 4c 44 52 20 |ave_data|....LDR |
|00001be0| 78 69 6e 63 2c 6c 69 73 | 73 61 5f 78 69 6e 63 0d |xinc,lis|sa_xinc.|
|00001bf0| 0b 04 17 4c 44 52 20 79 | 69 6e 63 2c 6c 69 73 73 |...LDR y|inc,liss|
|00001c00| 61 5f 79 69 6e 63 0d 0b | 0e 12 4d 4f 56 20 63 6f |a_yinc..|..MOV co|
|00001c10| 75 6e 74 2c 23 32 35 36 | 0d 0b 18 10 2e 72 65 64 |unt,#256|.....red|
|00001c20| 72 61 77 5f 6c 6f 6f 70 | 0d 0b 22 2d 54 53 54 20 |raw_loop|.."-TST |
|00001c30| 6c 69 73 73 61 66 6c 61 | 67 2c 23 31 20 20 20 20 |lissafla|g,#1 |
|00001c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 75 6e | | ; un|
|00001c50| 64 72 61 77 3f 0d 0b 2c | 13 4d 4f 56 4e 45 20 52 |draw?..,|.MOVNE R|
|00001c60| 31 2c 78 69 6e 64 65 78 | 0d 0b 36 13 4d 4f 56 4e |1,xindex|..6.MOVN|
|00001c70| 45 20 52 32 2c 79 69 6e | 64 65 78 0d 0b 40 10 4d |E R2,yin|dex..@.M|
|00001c80| 4f 56 4e 45 20 52 31 32 | 2c 23 30 0d 0b 4a 29 42 |OVNE R12|,#0..J)B|
|00001c90| 4c 4e 45 20 6c 69 73 73 | 61 5f 70 6c 6f 74 20 20 |LNE liss|a_plot |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00001cb0| 20 79 65 73 0d 0b 54 2b | 54 53 54 20 6c 69 73 73 | yes..T+|TST liss|
|00001cc0| 61 66 6c 61 67 2c 23 32 | 20 20 20 20 20 20 20 20 |aflag,#2| |
|00001cd0| 20 20 20 20 20 20 20 20 | 3b 20 64 72 61 77 3f 0d | |; draw?.|
|00001ce0| 0b 5e 28 42 45 51 20 6c | 69 73 73 61 5f 6e 65 78 |.^(BEQ l|issa_nex|
|00001cf0| 74 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t | |
|00001d00| 20 20 20 3b 20 6e 6f 0d | 0b 68 30 41 44 44 20 52 | ; no.|.h0ADD R|
|00001d10| 31 2c 78 69 6e 64 65 78 | 2c 23 31 20 20 20 20 20 |1,xindex|,#1 |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 6e 65 78 | | ; nex|
|00001d30| 74 20 70 6f 69 6e 74 0d | 0b 72 10 80 20 52 31 2c |t point.|.r.. R1,|
|00001d40| 52 31 2c 23 32 35 35 0d | 0b 7c 14 41 44 44 20 52 |R1,#255.|.|.ADD R|
|00001d50| 32 2c 79 69 6e 64 65 78 | 2c 23 31 0d 0b 86 10 80 |2,yindex|,#1.....|
|00001d60| 20 52 32 2c 52 32 2c 23 | 32 35 35 0d 0b 90 10 4d | R2,R2,#|255....M|
|00001d70| 4f 56 20 52 31 32 2c 23 | 32 35 35 0d 0b 9a 11 42 |OV R12,#|255....B|
|00001d80| 4c 20 6c 69 73 73 61 5f | 70 6c 6f 74 0d 0b a4 0f |L lissa_|plot....|
|00001d90| 2e 6c 69 73 73 61 5f 6e | 65 78 74 0d 0b ae 1a 41 |.lissa_n|ext....A|
|00001da0| 44 44 20 78 69 6e 64 65 | 78 2c 78 69 6e 64 65 78 |DD xinde|x,xindex|
|00001db0| 2c 78 69 6e 63 0d 0b b8 | 18 80 20 78 69 6e 64 65 |,xinc...|.. xinde|
|00001dc0| 78 2c 78 69 6e 64 65 78 | 2c 23 32 35 35 0d 0b c2 |x,xindex|,#255...|
|00001dd0| 1a 41 44 44 20 79 69 6e | 64 65 78 2c 79 69 6e 64 |.ADD yin|dex,yind|
|00001de0| 65 78 2c 79 69 6e 63 0d | 0b cc 18 80 20 79 69 6e |ex,yinc.|.... yin|
|00001df0| 64 65 78 2c 79 69 6e 64 | 65 78 2c 23 32 35 35 0d |dex,yind|ex,#255.|
|00001e00| 0b d6 17 53 55 42 53 20 | 63 6f 75 6e 74 2c 63 6f |...SUBS |count,co|
|00001e10| 75 6e 74 2c 23 31 0d 0b | e0 13 42 4e 45 20 72 65 |unt,#1..|..BNE re|
|00001e20| 64 72 61 77 5f 6c 6f 6f | 70 0d 0b ea 30 3b 20 43 |draw_loo|p...0; C|
|00001e30| 68 61 6e 67 65 20 78 20 | 26 20 79 20 73 74 61 72 |hange x |& y star|
|00001e40| 74 20 70 6f 73 69 74 69 | 6f 6e 73 20 66 6f 72 20 |t positi|ons for |
|00001e50| 6e 65 78 74 20 63 61 6c | 6c 0d 0b f4 16 4c 44 52 |next cal|l....LDR|
|00001e60| 42 20 78 69 6e 64 65 78 | 2c 78 73 74 61 72 74 0d |B xindex|,xstart.|
|00001e70| 0b fe 18 41 44 44 20 78 | 69 6e 64 65 78 2c 78 69 |...ADD x|index,xi|
|00001e80| 6e 64 65 78 2c 23 31 0d | 0c 08 16 53 54 52 42 20 |ndex,#1.|...STRB |
|00001e90| 78 69 6e 64 65 78 2c 78 | 73 74 61 72 74 0d 0c 12 |xindex,x|start...|
|00001ea0| 16 4c 44 52 42 20 79 69 | 6e 64 65 78 2c 79 73 74 |.LDRB yi|ndex,yst|
|00001eb0| 61 72 74 0d 0c 1c 18 41 | 44 44 20 79 69 6e 64 65 |art....A|DD yinde|
|00001ec0| 78 2c 79 69 6e 64 65 78 | 2c 23 31 0d 0c 26 16 53 |x,yindex|,#1..&.S|
|00001ed0| 54 52 42 20 79 69 6e 64 | 65 78 2c 79 73 74 61 72 |TRB yind|ex,ystar|
|00001ee0| 74 0d 0c 30 1b 4c 44 4d | 46 44 20 52 31 33 21 2c |t..0.LDM|FD R13!,|
|00001ef0| 7b 52 30 2d 52 31 32 2c | 50 43 7d 5e 0d 0c 3a 05 |{R0-R12,|PC}^..:.|
|00001f00| 3b 0d 0c 44 16 3b 20 50 | 6c 6f 74 20 4c 69 73 73 |;..D.; P|lot Liss|
|00001f10| 61 20 50 6f 69 6e 74 0d | 0c 4e 0f 2e 6c 69 73 73 |a Point.|.N..liss|
|00001f20| 61 5f 70 6c 6f 74 0d 0c | 58 27 4c 44 52 42 20 52 |a_plot..|X'LDRB R|
|00001f30| 31 2c 5b 78 77 61 76 65 | 2c 52 31 5d 20 20 20 20 |1,[xwave|,R1] |
|00001f40| 20 20 20 20 20 20 20 20 | 20 20 3b 20 78 0d 0c 62 | | ; x..b|
|00001f50| 2c 41 44 44 20 52 31 2c | 52 31 2c 23 33 32 20 20 |,ADD R1,|R1,#32 |
|00001f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f70| 20 3b 20 63 65 6e 74 72 | 65 0d 0c 6c 27 4c 44 52 | ; centr|e..l'LDR|
|00001f80| 42 20 52 32 2c 5b 79 77 | 61 76 65 2c 52 32 5d 20 |B R2,[yw|ave,R2] |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 79 | | ; y|
|00001fa0| 0d 0c 76 13 4c 44 52 20 | 52 30 2c 6c 69 73 73 61 |..v.LDR |R0,lissa|
|00001fb0| 5f 78 73 0d 0c 80 2f 4d | 4f 56 20 52 31 2c 52 31 |_xs.../M|OV R1,R1|
|00001fc0| 2c 4c 53 4c 20 52 30 20 | 20 20 20 20 20 20 20 20 |,LSL R0 | |
|00001fd0| 20 20 20 20 20 20 20 3b | 20 74 6f 20 70 69 78 65 | ;| to pixe|
|00001fe0| 6c 73 0d 0c 8a 13 4c 44 | 52 20 52 30 2c 6c 69 73 |ls....LD|R R0,lis|
|00001ff0| 73 61 5f 79 73 0d 0c 94 | 2f 4d 4f 56 20 52 32 2c |sa_ys...|/MOV R2,|
|00002000| 52 32 2c 4c 53 4c 20 52 | 30 20 20 20 20 20 20 20 |R2,LSL R|0 |
|00002010| 20 20 20 20 20 20 20 20 | 20 3b 20 74 6f 20 70 69 | | ; to pi|
|00002020| 78 65 6c 73 0d 0c 9e 11 | 4c 44 52 20 52 30 2c 72 |xels....|LDR R0,r|
|00002030| 6f 77 6c 65 6e 0d 0c a8 | 2e 4d 55 4c 20 52 32 2c |owlen...|.MUL R2,|
|00002040| 52 30 2c 52 32 20 20 20 | 20 20 20 20 20 20 20 20 |R0,R2 | |
|00002050| 20 20 20 20 20 20 20 20 | 20 3b 20 79 20 6f 66 66 | | ; y off|
|00002060| 73 65 74 0d 0c b2 16 4c | 44 52 20 52 30 2c 73 63 |set....L|DR R0,sc|
|00002070| 72 65 65 6e 5f 61 64 64 | 72 0d 0c bc 31 41 44 44 |reen_add|r...1ADD|
|00002080| 20 52 32 2c 52 32 2c 52 | 30 20 20 20 20 20 20 20 | R2,R2,R|0 |
|00002090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 | | ; r|
|000020a0| 6f 77 20 61 64 64 72 65 | 73 73 0d 0c c6 2d 4d 4f |ow addre|ss...-MO|
|000020b0| 56 20 50 43 2c 72 74 6e | 20 20 20 20 20 20 20 20 |V PC,rtn| |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000020d0| 67 6f 20 70 6c 6f 74 0d | 0c d0 05 3b 0d 0c da 1c |go plot.|...;....|
|000020e0| 3b 20 32 20 43 6f 6c 6f | 75 72 20 70 6f 69 6e 74 |; 2 Colo|ur point|
|000020f0| 20 70 6c 6f 74 74 65 72 | 0d 0c e4 0a 2e 70 6c 6f | plotter|.....plo|
|00002100| 74 32 0d 0c ee 33 41 44 | 44 20 52 32 2c 52 32 2c |t2...3AD|D R2,R2,|
|00002110| 52 31 2c 4c 53 52 20 23 | 33 20 20 20 20 20 20 20 |R1,LSR #|3 |
|00002120| 20 20 20 20 20 20 3b 20 | 70 69 78 65 6c 20 61 64 | ; |pixel ad|
|00002130| 64 72 65 73 73 0d 0c f8 | 30 80 20 52 31 2c 52 31 |dress...|0. R1,R1|
|00002140| 2c 23 37 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,#7 | |
|00002150| 20 20 20 20 20 20 20 3b | 20 70 69 78 65 6c 20 6f | ;| pixel o|
|00002160| 66 66 73 65 74 0d 0d 02 | 2e 4d 4f 56 20 52 30 2c |ffset...|.MOV R0,|
|00002170| 23 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#1 | |
|00002180| 20 20 20 20 20 20 20 20 | 20 3b 20 82 20 63 6f 6c | | ; . col|
|00002190| 6f 75 72 0d 0d 0c 36 4d | 4f 56 20 52 31 2c 52 30 |our...6M|OV R1,R0|
|000021a0| 2c 4c 53 4c 20 52 31 20 | 20 20 20 20 20 20 20 20 |,LSL R1 | |
|000021b0| 20 20 20 20 20 20 20 3b | 20 6f 66 66 73 65 74 20 | ;| offset |
|000021c0| 66 6f 72 20 70 69 78 65 | 6c 0d 0d 16 31 4c 44 52 |for pixe|l...1LDR|
|000021d0| 42 20 52 30 2c 5b 52 32 | 5d 20 20 20 20 20 20 20 |B R0,[R2|] |
|000021e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 | | ; s|
|000021f0| 63 72 65 65 6e 20 64 61 | 74 61 0d 0d 20 2d 43 4d |creen da|ta.. -CM|
|00002200| 50 20 52 31 32 2c 23 30 | 20 20 20 20 20 20 20 20 |P R12,#0| |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00002220| 75 6e 64 72 61 77 3f 0d | 0d 2a 34 42 49 43 4e 45 |undraw?.|.*4BICNE|
|00002230| 20 52 30 2c 52 30 2c 52 | 31 20 20 20 20 20 20 20 | R0,R0,R|1 |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 79 65 73 | | ; yes|
|00002250| 20 2d 20 74 75 72 6e 20 | 6f 66 66 0d 0d 34 2d 84 | - turn |off..4-.|
|00002260| 52 45 51 20 52 30 2c 52 | 30 2c 52 31 20 20 20 20 |REQ R0,R|0,R1 |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00002280| 6e 6f 20 2d 20 73 65 74 | 0d 0d 3e 10 53 54 52 42 |no - set|..>.STRB|
|00002290| 20 52 30 2c 5b 52 32 5d | 0d 0d 48 0e 4d 4f 56 20 | R0,[R2]|..H.MOV |
|000022a0| 50 43 2c 52 31 34 0d 0d | 52 05 3b 0d 0d 5c 1c 3b |PC,R14..|R.;..\.;|
|000022b0| 20 34 20 43 6f 6c 6f 75 | 72 20 70 6f 69 6e 74 20 | 4 Colou|r point |
|000022c0| 70 6c 6f 74 74 65 72 0d | 0d 66 0a 2e 70 6c 6f 74 |plotter.|.f..plot|
|000022d0| 34 0d 0d 70 33 41 44 44 | 20 52 32 2c 52 32 2c 52 |4..p3ADD| R2,R2,R|
|000022e0| 31 2c 4c 53 52 20 23 32 | 20 20 20 20 20 20 20 20 |1,LSR #2| |
|000022f0| 20 20 20 20 20 3b 20 70 | 69 78 65 6c 20 61 64 64 | ; p|ixel add|
|00002300| 72 65 73 73 0d 0d 7a 30 | 80 20 52 31 2c 52 31 2c |ress..z0|. R1,R1,|
|00002310| 23 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#3 | |
|00002320| 20 20 20 20 20 20 3b 20 | 70 69 78 65 6c 20 6f 66 | ; |pixel of|
|00002330| 66 73 65 74 0d 0d 84 2e | 4d 4f 56 20 52 30 2c 23 |fset....|MOV R0,#|
|00002340| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3 | |
|00002350| 20 20 20 20 20 20 20 20 | 3b 20 82 20 63 6f 6c 6f | |; . colo|
|00002360| 75 72 0d 0d 8e 36 4d 4f | 56 20 52 31 2c 52 30 2c |ur...6MO|V R1,R0,|
|00002370| 4c 53 4c 20 52 31 20 20 | 20 20 20 20 20 20 20 20 |LSL R1 | |
|00002380| 20 20 20 20 20 20 3b 20 | 6f 66 66 73 65 74 20 66 | ; |offset f|
|00002390| 6f 72 20 70 69 78 65 6c | 0d 0d 98 31 4c 44 52 42 |or pixel|...1LDRB|
|000023a0| 20 52 30 2c 5b 52 32 5d | 20 20 20 20 20 20 20 20 | R0,[R2]| |
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 63 | | ; sc|
|000023c0| 72 65 65 6e 20 64 61 74 | 61 0d 0d a2 2d 43 4d 50 |reen dat|a...-CMP|
|000023d0| 20 52 31 32 2c 23 30 20 | 20 20 20 20 20 20 20 20 | R12,#0 | |
|000023e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 75 | | ; u|
|000023f0| 6e 64 72 61 77 3f 0d 0d | ac 34 42 49 43 4e 45 20 |ndraw?..|.4BICNE |
|00002400| 52 30 2c 52 30 2c 52 31 | 20 20 20 20 20 20 20 20 |R0,R0,R1| |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 3b 20 79 65 73 20 | | ; yes |
|00002420| 2d 20 74 75 72 6e 20 6f | 66 66 0d 0d b6 2d 84 52 |- turn o|ff...-.R|
|00002430| 45 51 20 52 30 2c 52 30 | 2c 52 31 20 20 20 20 20 |EQ R0,R0|,R1 |
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6e | | ; n|
|00002450| 6f 20 2d 20 73 65 74 0d | 0d c0 10 53 54 52 42 20 |o - set.|...STRB |
|00002460| 52 30 2c 5b 52 32 5d 0d | 0d ca 0e 4d 4f 56 20 50 |R0,[R2].|...MOV P|
|00002470| 43 2c 52 31 34 0d 0d d4 | 05 3b 0d 0d de 1d 3b 20 |C,R14...|.;....; |
|00002480| 31 36 20 43 6f 6c 6f 75 | 72 20 70 6f 69 6e 74 20 |16 Colou|r point |
|00002490| 70 6c 6f 74 74 65 72 0d | 0d e8 0b 2e 70 6c 6f 74 |plotter.|....plot|
|000024a0| 31 36 0d 0d f2 33 41 44 | 44 20 52 32 2c 52 32 2c |16...3AD|D R2,R2,|
|000024b0| 52 31 2c 4c 53 52 20 23 | 31 20 20 20 20 20 20 20 |R1,LSR #|1 |
|000024c0| 20 20 20 20 20 20 3b 20 | 70 69 78 65 6c 20 61 64 | ; |pixel ad|
|000024d0| 64 72 65 73 73 0d 0d fc | 30 54 53 54 20 52 31 2c |dress...|0TST R1,|
|000024e0| 23 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#1 | |
|000024f0| 20 20 20 20 20 20 20 20 | 20 3b 20 6f 64 64 20 70 | | ; odd p|
|00002500| 69 78 65 6c 3f 0d 0e 06 | 32 4d 4f 56 4e 45 20 52 |ixel?...|2MOVNE R|
|00002510| 31 2c 23 26 37 30 20 20 | 20 20 20 20 20 20 20 20 |1,#&70 | |
|00002520| 20 20 20 20 20 20 20 20 | 20 3b 20 79 65 73 20 2d | | ; yes -|
|00002530| 20 63 6f 6c 6f 75 72 0d | 0e 10 25 ec 51 20 52 31 | colour.|..%.Q R1|
|00002540| 2c 23 26 30 37 20 20 20 | 20 20 20 20 20 20 20 20 |,#&07 | |
|00002550| 20 20 20 20 20 20 20 20 | 3b 20 4e 6f 0d 0e 1a 31 | |; No...1|
|00002560| 4c 44 52 42 20 52 30 2c | 5b 52 32 5d 20 20 20 20 |LDRB R0,|[R2] |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002580| 3b 20 73 63 72 65 65 6e | 20 64 61 74 61 0d 0e 24 |; screen| data..$|
|00002590| 2d 43 4d 50 20 52 31 32 | 2c 23 30 20 20 20 20 20 |-CMP R12|,#0 |
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025b0| 20 3b 20 75 6e 64 72 61 | 77 3f 0d 0e 2e 34 42 49 | ; undra|w?...4BI|
|000025c0| 43 4e 45 20 52 30 2c 52 | 30 2c 52 31 20 20 20 20 |CNE R0,R|0,R1 |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000025e0| 79 65 73 20 2d 20 74 75 | 72 6e 20 6f 66 66 0d 0e |yes - tu|rn off..|
|000025f0| 38 2d 84 52 45 51 20 52 | 30 2c 52 30 2c 52 31 20 |8-.REQ R|0,R0,R1 |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002610| 20 3b 20 6e 6f 20 2d 20 | 73 65 74 0d 0e 42 10 53 | ; no - |set..B.S|
|00002620| 54 52 42 20 52 30 2c 5b | 52 32 5d 0d 0e 4c 0e 4d |TRB R0,[|R2]..L.M|
|00002630| 4f 56 20 50 43 2c 52 31 | 34 0d 0e 56 05 3b 0d 0e |OV PC,R1|4..V.;..|
|00002640| 60 1e 3b 20 32 35 36 20 | 43 6f 6c 6f 75 72 20 70 |`.; 256 |Colour p|
|00002650| 6f 69 6e 74 20 70 6c 6f | 74 74 65 72 0d 0e 6a 0c |oint plo|tter..j.|
|00002660| 2e 70 6c 6f 74 32 35 36 | 0d 0e 74 33 41 44 44 20 |.plot256|..t3ADD |
|00002670| 52 32 2c 52 32 2c 52 31 | 20 20 20 20 20 20 20 20 |R2,R2,R1| |
|00002680| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 70 69 | | ; pi|
|00002690| 78 65 6c 20 61 64 64 72 | 65 73 73 0d 0e 7e 2f 53 |xel addr|ess..~/S|
|000026a0| 54 52 42 20 52 31 32 2c | 5b 52 32 5d 20 20 20 20 |TRB R12,|[R2] |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000026c0| 20 73 65 74 20 70 69 78 | 65 6c 0d 0e 88 0e 4d 4f | set pix|el....MO|
|000026d0| 56 20 50 43 2c 52 31 34 | 0d 0e 92 05 3b 0d 0e 9c |V PC,R14|....;...|
|000026e0| 11 2e 78 73 74 61 72 74 | 20 44 43 42 20 30 0d 0e |..xstart| DCB 0..|
|000026f0| a6 11 2e 79 73 74 61 72 | 74 20 44 43 42 20 30 0d |...ystar|t DCB 0.|
|00002700| 0e b0 09 41 4c 49 47 4e | 0d 0e ba 33 2e 76 64 75 |...ALIGN|...3.vdu|
|00002710| 76 61 72 73 20 44 43 44 | 20 34 3a 44 43 44 20 35 |vars DCD| 4:DCD 5|
|00002720| 3a 44 43 44 20 36 3a 44 | 43 44 20 39 3a 44 43 44 |:DCD 6:D|CD 9:DCD|
|00002730| 20 31 34 39 3a 44 43 44 | 20 2d 31 0d 0e c4 0e 2e | 149:DCD| -1.....|
|00002740| 6d 6f 64 65 5f 76 61 72 | 73 0d 0e ce 35 2e 78 5f |mode_var|s...5.x_|
|00002750| 65 69 67 20 44 43 44 20 | 30 20 20 20 20 20 20 20 |eig DCD |0 |
|00002760| 20 20 20 20 20 3b 20 78 | 20 70 69 78 65 6c 73 2d | ; x| pixels-|
|00002770| 6f 73 75 6e 69 74 73 20 | 66 61 63 74 6f 72 0d 0e |osunits |factor..|
|00002780| d8 35 2e 79 5f 65 69 67 | 20 44 43 44 20 30 20 20 |.5.y_eig| DCD 0 |
|00002790| 20 20 20 20 20 20 20 20 | 20 20 3b 20 79 20 70 69 | | ; y pi|
|000027a0| 78 65 6c 73 2d 6f 73 75 | 6e 69 74 73 20 66 61 63 |xels-osu|nits fac|
|000027b0| 74 6f 72 0d 0e e2 2b 2e | 72 6f 77 6c 65 6e 20 44 |tor...+.|rowlen D|
|000027c0| 43 44 20 30 20 20 20 20 | 20 20 20 20 20 20 20 3b |CD 0 | ;|
|000027d0| 20 62 79 74 65 73 20 70 | 65 72 20 72 6f 77 0d 0e | bytes p|er row..|
|000027e0| ec 2c 2e 62 70 70 20 44 | 43 44 20 30 20 20 20 20 |.,.bpp D|CD 0 |
|000027f0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 62 69 74 73 | | ; bits|
|00002800| 20 70 65 72 20 70 69 78 | 65 6c 0d 0e f6 2c 2e 73 | per pix|el...,.s|
|00002810| 63 72 65 65 6e 5f 61 64 | 64 72 20 44 43 44 20 30 |creen_ad|dr DCD 0|
|00002820| 20 20 20 20 20 20 3b 20 | 73 63 72 65 65 6e 20 61 | ; |screen a|
|00002830| 64 64 72 65 73 73 0d 0f | 00 05 3b 0d 0f 0a 13 2e |ddress..|..;.....|
|00002840| 6c 69 73 73 61 5f 78 73 | 20 44 43 44 20 30 0d 0f |lissa_xs| DCD 0..|
|00002850| 14 13 2e 6c 69 73 73 61 | 5f 79 73 20 44 43 44 20 |...lissa|_ys DCD |
|00002860| 30 0d 0f 1e 05 3b 0d 0f | 28 36 3b 20 4e 42 2e 20 |0....;..|(6; NB. |
|00002870| 6b 65 65 70 20 66 69 6c | 65 20 6c 61 79 6f 75 74 |keep fil|e layout|
|00002880| 20 69 6e 20 6c 69 6e 65 | 20 77 69 74 68 20 21 54 | in line| with !T|
|00002890| 69 64 79 44 65 73 6b 20 | 21 21 21 21 0d 0f 32 15 |idyDesk |!!!!..2.|
|000028a0| 2e 6c 69 73 73 61 5f 66 | 69 6c 65 5f 73 74 61 72 |.lissa_f|ile_star|
|000028b0| 74 0d 0f 3c 0f 2e 78 77 | 61 76 65 5f 64 61 74 61 |t..<..xw|ave_data|
|000028c0| 0d 0f 46 05 5d 0d 0f 50 | 0b 50 25 2b 3d 32 35 36 |..F.]..P|.P%+=256|
|000028d0| 0d 0f 5a 11 79 77 61 76 | 65 5f 64 61 74 61 3d 50 |..Z.ywav|e_data=P|
|000028e0| 25 0d 0f 64 0b 50 25 2b | 3d 32 35 36 0d 0f 6e 0c |%..d.P%+|=256..n.|
|000028f0| 5b 4f 50 54 20 61 73 6d | 0d 0f 78 16 2e 6c 69 73 |[OPT asm|..x..lis|
|00002900| 73 61 5f 78 69 6e 63 69 | 20 44 43 44 20 30 0d 0f |sa_xinci| DCD 0..|
|00002910| 82 16 2e 6c 69 73 73 61 | 5f 79 69 6e 63 69 20 44 |...lissa|_yinci D|
|00002920| 43 44 20 30 0d 0f 8c 16 | 2e 6c 69 73 73 61 5f 78 |CD 0....|.lissa_x|
|00002930| 69 6e 63 20 20 44 43 44 | 20 30 0d 0f 96 16 2e 6c |inc DCD| 0.....l|
|00002940| 69 73 73 61 5f 79 69 6e | 63 20 20 44 43 44 20 30 |issa_yin|c DCD 0|
|00002950| 0d 0f a0 10 2e 6c 69 73 | 73 61 5f 78 66 75 6e 63 |.....lis|sa_xfunc|
|00002960| 0d 0f aa 0c 5d 3a 50 25 | 2b 3d 33 32 0d 0f b4 19 |....]:P%|+=32....|
|00002970| 6c 69 73 73 61 5f 79 66 | 75 6e 63 3d 50 25 3a 50 |lissa_yf|unc=P%:P|
|00002980| 25 2b 3d 33 32 0d 0f be | 18 6c 69 73 73 61 5f 78 |%+=32...|.lissa_x|
|00002990| 6d 69 6e 3d 50 25 3a 50 | 25 2b 3d 31 32 0d 0f c8 |min=P%:P|%+=12...|
|000029a0| 18 6c 69 73 73 61 5f 78 | 6d 61 78 3d 50 25 3a 50 |.lissa_x|max=P%:P|
|000029b0| 25 2b 3d 31 32 0d 0f d2 | 18 6c 69 73 73 61 5f 79 |%+=12...|.lissa_y|
|000029c0| 6d 69 6e 3d 50 25 3a 50 | 25 2b 3d 31 32 0d 0f dc |min=P%:P|%+=12...|
|000029d0| 18 6c 69 73 73 61 5f 79 | 6d 61 78 3d 50 25 3a 50 |.lissa_y|max=P%:P|
|000029e0| 25 2b 3d 31 32 0d 0f e6 | 0c 5b 4f 50 54 20 61 73 |%+=12...|.[OPT as|
|000029f0| 6d 0d 0f f0 16 2e 6c 69 | 73 73 61 5f 79 65 71 78 |m.....li|ssa_yeqx|
|00002a00| 20 20 44 43 44 20 30 0d | 0f fa 05 5d 0d 10 04 15 | DCD 0.|...]....|
|00002a10| 6c 69 73 73 61 5f 66 69 | 6c 65 5f 65 6e 64 3d 50 |lissa_fi|le_end=P|
|00002a20| 25 0d 10 0e 05 ed 0d 10 | 18 05 e1 0d 10 22 2e f4 |%.......|....."..|
|00002a30| 20 49 6e 69 74 20 74 61 | 62 6c 65 73 20 77 69 74 | Init ta|bles wit|
|00002a40| 68 20 4c 69 73 73 61 6a | 6f 75 73 20 66 75 6e 63 |h Lissaj|ous func|
|00002a50| 74 69 6f 6e 20 64 61 74 | 61 0d 10 2c 0d dd f2 67 |tion dat|a..,...g|
|00002a60| 65 6e 64 61 74 61 0d 10 | 36 3c ea 85 3a ee 85 ea |endata..|6<..:...|
|00002a70| 3a f2 48 6f 75 72 53 6d | 61 73 68 3a 5a 25 3d a4 |:.HourSm|ash:Z%=.|
|00002a80| 57 69 6d 70 45 72 72 28 | 22 49 6e 70 75 74 20 44 |WimpErr(|"Input D|
|00002a90| 61 74 61 20 45 72 72 6f | 72 3a 20 22 2b f6 24 29 |ata Erro|r: "+.$)|
|00002aa0| 3a e1 0d 10 40 0e f2 48 | 6f 75 72 53 6d 61 73 68 |:...@..H|ourSmash|
|00002ab0| 0d 10 4a 29 21 6c 69 73 | 73 61 5f 78 69 6e 63 69 |..J)!lis|sa_xinci|
|00002ac0| 3d 78 69 6e 63 69 25 3a | 21 6c 69 73 73 61 5f 78 |=xinci%:|!lissa_x|
|00002ad0| 69 6e 63 3d 78 69 6e 63 | 25 0d 10 54 29 21 6c 69 |inc=xinc|%..T)!li|
|00002ae0| 73 73 61 5f 79 69 6e 63 | 69 3d 79 69 6e 63 69 25 |ssa_yinc|i=yinci%|
|00002af0| 3a 21 6c 69 73 73 61 5f | 79 69 6e 63 3d 79 69 6e |:!lissa_|yinc=yin|
|00002b00| 63 25 0d 10 5e 32 78 6d | 69 6e 3d a0 28 78 6d 69 |c%..^2xm|in=.(xmi|
|00002b10| 6e 24 29 3a 78 6d 61 78 | 3d a0 28 78 6d 61 78 24 |n$):xmax|=.(xmax$|
|00002b20| 29 3a 64 78 3d 28 78 6d | 61 78 2d 78 6d 69 6e 29 |):dx=(xm|ax-xmin)|
|00002b30| 2f 32 35 36 0d 10 68 32 | 79 6d 69 6e 3d a0 28 79 |/256..h2|ymin=.(y|
|00002b40| 6d 69 6e 24 29 3a 79 6d | 61 78 3d a0 28 79 6d 61 |min$):ym|ax=.(yma|
|00002b50| 78 24 29 3a 64 79 3d 28 | 79 6d 61 78 2d 79 6d 69 |x$):dy=(|ymax-ymi|
|00002b60| 6e 29 2f 32 35 36 0d 10 | 72 26 78 6c 6f 3d 31 45 |n)/256..|r&xlo=1E|
|00002b70| 32 30 3a 78 68 69 3d 2d | 31 45 32 30 3a 79 6c 6f |20:xhi=-|1E20:ylo|
|00002b80| 3d 78 6c 6f 3a 79 68 69 | 3d 78 68 69 0d 10 7c 10 |=xlo:yhi|=xhi..|.|
|00002b90| e3 20 49 25 3d 30 20 b8 | 20 32 35 35 0d 10 86 22 |. I%=0 .| 255..."|
|00002ba0| 20 20 78 3d 78 6d 69 6e | 2b 49 25 2a 64 78 3a 78 | x=xmin|+I%*dx:x|
|00002bb0| 28 49 25 29 3d a0 28 78 | 66 75 6e 63 24 29 0d 10 |(I%)=.(x|func$)..|
|00002bc0| 90 38 20 20 e7 20 79 65 | 71 78 25 20 79 28 49 25 |.8 . ye|qx% y(I%|
|00002bd0| 29 3d 78 28 49 25 29 20 | 8b 20 79 3d 79 6d 69 6e |)=x(I%) |. y=ymin|
|00002be0| 2b 49 25 2a 64 79 3a 79 | 28 49 25 29 3d a0 28 79 |+I%*dy:y|(I%)=.(y|
|00002bf0| 66 75 6e 63 24 29 0d 10 | 9a 1b 20 20 e7 20 78 28 |func$)..|.. . x(|
|00002c00| 49 25 29 3c 78 6c 6f 20 | 78 6c 6f 3d 78 28 49 25 |I%)<xlo |xlo=x(I%|
|00002c10| 29 0d 10 a4 1b 20 20 e7 | 20 78 28 49 25 29 3e 78 |).... .| x(I%)>x|
|00002c20| 68 69 20 78 68 69 3d 78 | 28 49 25 29 0d 10 ae 1b |hi xhi=x|(I%)....|
|00002c30| 20 20 e7 20 79 28 49 25 | 29 3c 79 6c 6f 20 79 6c | . y(I%|)<ylo yl|
|00002c40| 6f 3d 79 28 49 25 29 0d | 10 b8 1b 20 20 e7 20 79 |o=y(I%).|... . y|
|00002c50| 28 49 25 29 3e 79 68 69 | 20 79 68 69 3d 79 28 49 |(I%)>yhi| yhi=y(I|
|00002c60| 25 29 0d 10 c2 05 ed 0d | 10 cc 2d 78 73 63 61 6c |%)......|..-xscal|
|00002c70| 65 3d 32 35 35 2f 28 78 | 68 69 2d 78 6c 6f 29 3a |e=255/(x|hi-xlo):|
|00002c80| 79 73 63 61 6c 65 3d 32 | 35 35 2f 28 79 68 69 2d |yscale=2|55/(yhi-|
|00002c90| 79 6c 6f 29 0d 10 d6 2f | e7 20 78 73 63 61 6c 65 |ylo).../|. xscale|
|00002ca0| 3c 79 73 63 61 6c 65 20 | 73 63 61 6c 65 3d 78 73 |<yscale |scale=xs|
|00002cb0| 63 61 6c 65 20 8b 20 73 | 63 61 6c 65 3d 79 73 63 |cale . s|cale=ysc|
|00002cc0| 61 6c 65 0d 10 e0 25 78 | 61 64 6a 3d 2d 78 6c 6f |ale...%x|adj=-xlo|
|00002cd0| 2a 78 73 63 61 6c 65 3a | 79 61 64 6a 3d 2d 79 6c |*xscale:|yadj=-yl|
|00002ce0| 6f 2a 79 73 63 61 6c 65 | 0d 10 ea 10 e3 20 49 25 |o*yscale|..... I%|
|00002cf0| 3d 30 20 b8 20 32 35 35 | 0d 10 f4 25 20 20 78 77 |=0 . 255|...% xw|
|00002d00| 61 76 65 5f 64 61 74 61 | 3f 49 25 3d 78 28 49 25 |ave_data|?I%=x(I%|
|00002d10| 29 2a 78 73 63 61 6c 65 | 2b 78 61 64 6a 0d 10 fe |)*xscale|+xadj...|
|00002d20| 25 20 20 79 77 61 76 65 | 5f 64 61 74 61 3f 49 25 |% ywave|_data?I%|
|00002d30| 3d 79 28 49 25 29 2a 79 | 73 63 61 6c 65 2b 79 61 |=y(I%)*y|scale+ya|
|00002d40| 64 6a 0d 11 08 05 ed 0d | 11 12 0e f2 48 6f 75 72 |dj......|....Hour|
|00002d50| 53 6d 61 73 68 0d 11 1c | 05 e1 0d ff |Smash...|.... |
+--------+-------------------------+-------------------------+--------+--------+